home *** CD-ROM | disk | FTP | other *** search
/ Stickerpedia Stickerbook / Stickerbook.iso / pc / DATA / behaviours.cxt / 00031_Script_ [ global ] sprite cursors < prev    next >
Text File  |  2003-03-23  |  652b  |  37 lines
  1.  
  2.  
  3.  
  4. property  pMyCursor
  5. property  pMyDownCursor
  6.  
  7. on beginSprite me
  8.   
  9. end
  10.  
  11.  
  12.  
  13. on mouseEnter me
  14.   cursor pMyCursor  
  15. end
  16.  
  17. on mouseDown me
  18.   cursor pMyDownCursor  
  19. end
  20.  
  21. on mouseUp me
  22.   cursor pMyCursor  
  23. end
  24.  
  25.  
  26. on mouseLeave me
  27.   cursor -1
  28. end
  29.  
  30.  
  31. on getPropertyDescriptionList
  32.   set description = [:]
  33.   addProp description, #pMyCursor, [#comment: "Cursor on mouseEnter", #format: #integer, #default: -1, #range: [-1,200, 260, 270, 280, 290, 300]]
  34.   addProp description, #pMyDownCursor, [#comment: "Cursor on mouseDown", #format: #integer, #default: -1, #range: [-1,200, 260, 270, 280, 290, 300]]
  35.   return description
  36. end 
  37.